extern int tqlrat_(integer *n, doublereal *d__, doublereal *e2, integer *ierr);
/*:ref: epslon_ 7 1 7 */
/*:ref: pythag_ 7 2 7 7 */
